﻿Namespace Control
    Public Class Tr_ICMS_Origem
        Implements IControl(Of Model.Tr_ICMS_Origem)
        Implements IDisposable

        Public Function Excluir(ByVal entity As Model.Tr_ICMS_Origem) As Boolean Implements IControl(Of Model.Tr_ICMS_Origem).Excluir

        End Function

        Public Function ListaTudo() As System.Collections.Generic.IList(Of Model.Tr_ICMS_Origem) Implements IControl(Of Model.Tr_ICMS_Origem).ListaTudo
            Return Model.Tr_ICMS_Origem.FindAll()
        End Function

        Public Function ListaUm(ByVal entity As Model.Tr_ICMS_Origem) As Model.Tr_ICMS_Origem Implements IControl(Of Model.Tr_ICMS_Origem).ListaUm
            Return Model.Tr_ICMS_Origem.Find(entity.cd_tr_icms_origem)
        End Function

        Public Function Salvar(ByVal entity As Model.Tr_ICMS_Origem) As Boolean Implements IControl(Of Model.Tr_ICMS_Origem).Salvar

        End Function

        Private disposedValue As Boolean = False        ' To detect redundant calls

        ' IDisposable
        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
            If Not Me.disposedValue Then
                If disposing Then
                    ' TODO: free other state (managed objects).
                End If

                ' TODO: free your own state (unmanaged objects).
                ' TODO: set large fields to null.
            End If
            Me.disposedValue = True
        End Sub

#Region " IDisposable Support "
        ' This code added by Visual Basic to correctly implement the disposable pattern.
        Public Sub Dispose() Implements IDisposable.Dispose
            ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
            Dispose(True)
            GC.SuppressFinalize(Me)
        End Sub
#End Region

    End Class
End Namespace